10 IFLA=0THENLA=49152:PRINT"[147]LOADING LA BASIC AND DEMO":LOAD"LA BASIC",8,1
20 SYSLA,0
30 SYSLA,2,"TITLE"
40 SYSLA,2,"INITIALIZE
50 [158]LA,2,"DRAW SCREEN"
60 :
70 [143]=GET OPTIONS
80 [151]198,0:[146]198,1:[161]A$
90 [139]A$[179]"1"[176]A$[177]"4"[167][158]LA,1,"GET OPTIONS"
100 A[178][197](A$):[158]LA,2,OP$(A)
110 [158]LA,1,"GET OPTIONS
120 :
130 :
140 :
150 REM=PRESS ANY KEY
160 SYSLA,4(22,9:PRINT"PRESS ANY KEY TO GO ON"
170 POKE198,0:WAIT198,1:RETURN
180 :
190 :
200 :
210 REM=DRAW SCREEN
220 POKE53281,CS:POKE53280,CB
230 SYSLA,3(5,5,CC:PRINT"CHOOSE AN OPTION
240 [158]LA,5,"DATA FOR SCREEN
250 REM=DS LOOP
260 READ X,Y,A$
270 IFX=-1THENSYSLA,1,"DS DONE"
280 SYSLA,4(X,Y:PRINTA$
290 SYSLA,1,"DS LOOP
300 [143]=DS DONE
310 [142]
320 :
330 [143]=DATA FOR SCREEN
340 [131] 7,7,"1.ZODIAC
350 DATA 8,7,"2.CHANGE BACKGROUND COLOR
360 [131] 9,7,"3.CHANGE BORDER COLOR
370 DATA10,7,"4.CHANGE TEXT COLOR
380 [131]-1,-1,-1
390 :
400 :
410 :
420 [143]=INITIALIZE
430 CC[178]101:[143]  CHARACTER COLOR
440 CB[178]0 :[143]  BORER     COLOR
450 CS[178]0 :[143]  SCREEN    COLOR
460 [158]LA,5,"DATA FOR INITIALIZATION
470 FORA=1TO4:READOP$(A):NEXT
480 FORA=1TO40:SP$=SP$+" ":NEXT:SP$=SP$+"[145][145]"
490 RETURN
500 :
510 REM=DATA FOR INITIALIZATION
520 DATA "ZODIAC
530 [131] "BACKGROUND COLOR
540 DATA "BORDER COLOR
550 [131] "TEXT COLOR
560 :
570 :
580 REM=BACKGROUND COLOR
590 CB=CB+1:IFCB>255THENCB=0
600 POKE53281,CB
610 RETURN
620 :
630 :
640 :
650 REM=BORDER COLOR
660 CS=CS+1:IFCB>255 THENCB=0
670 POKE53280,CS
680 RETURN
690 :
700 :
710 :
720 REM=TEXT COLOR
730 CC=CC+1:IF CC>116THENCC=100
740 SYSLA,4(0,0,CC
750 RETURN
760 :
770 :
780 :
790 REM=ZODIAC
800 POKE53280,0:POKE53281,0
810 SYSLA,3(5,14,2:PRINT"THE ZODIAC
820 [158]LA,4(9,2,1:[153]"IN WHICH MONTH WERE YOU BORN (1-12) ?
830 SYSLA,4(10,1,2:PRINTSP$:INPUTMO$:MO=VAL(MO$)
840 IFMO<1ORMO>12THEN830
850 SYSLA,4(12,2,1:PRINT"ON WHAT DATE ?
860 [158]LA,4(13,1,2:[153]SP$  :[133]DA$:DA[178][197](DA$)
870 [139]DA[179]1[176]DA[177]31[167]860
880 [139]DA[179]10 [167]DA$[178]"0"[170]DA$
890 ZZ$[178]MO$[170]"."[170]DA$:ZZ[178][197](ZZ$)
900 [139]ZZ[177]12.20    [167]ZZ[178]ZZ[171]13
910 [158]LA,5,"DATES OF ZODIAC"
920 ZC[178]0
930 ZC[178]ZC[170]1:[135] A:[139]ZZ[177]A[167]930
940 [158]LA,5,"STARS OF ZODIAC"
950 [129]A[178]1[164]ZC:[135] ZS$:[130]
960 [158]LA,4(17,3,1:[153]"YOUR ZODIAC SIGN IS...."
970 [158]LA,4(17,25,2:[153]ZS$
980 [158]LA,2,"PRESS ANY KEY"
990 [158]LA,2,"DRAW SCREEN"
1000 [142]
1010 :
1020 [143]=DATES OF ZODIAC
1030 [131]1.19,2.18,3.20,4.20,5.20,6.20,7.20,8.21,9.22,10.22,11.22,12.20
1040 :
1050 [143]=STARS OF ZODIAC
1060 [131] "CAPRICON","AQUARIUS","PISCES",ARIES,TAURUS,"GEMINI","CANCER","LEO"
1070 [131] "VIRGO","LIBRA","SCORPIO","SAGITTARIUS"
1080 [142]
1090 :
1100 :
1110 :
1120 [143]=TITLE
1130 [151]53280,0 :[151]53281,0:[158]LA,3(0,12,1:[153]"L A B A S I C
1140 SYSLA,5,"DATA FOR TITLE
1150 [143]=AGAIN
1160 [135] X,Y,A$
1170 [139]X[178][171]1[167][158]LA,1,"BACK
1180 SYSLA,4(X,Y:PRINTA$
1190 SYSLA,1,"AGAIN
1200 [143]=BACK
1210 [158]LA,2,"PRESS ANY KEY":[142]
1220 :
1230 [143]=DATA FOR TITLE
1240 [131] 2,10 ,"A BASIC EXTENSION"
1250 [131]6,1,"THAT ALLOWS THE USE OF LABELS IN THE"
1260 [131]7,1,"FOLLOWING STATEMENTS:
1270 DATA10,3,"GOTO"
1280 DATA11,3,"GOSUB"
1290 DATA12,3,"RESTORE"
1300 DATA15,1,"IT ALSO PROVIDES COMMANDS FOR
1310 [131]16,1,"CURSOR POSITIONING & COLOR SETTING
1320 DATA-1,-1,-1